Módulo 3: Apresentando suas análises
PROFESP, DEMSP, MS
Geographic Information System (GIS)
Vetor: Pontos, linhas e polígonos
Raster: Pixels
Geralmente em Shapefiles
coleção de arquivos: .shp, .shx, and .dbf. ou mais…
Localização na superfície da terra
Sistema de coordenadas
Pacotes, baixam direto os shapefiles
Ler de shapefiles no disco (seu computurador)
Não é um dataframe
Mas não importa, vamos fingir que é
# MANIPULAÇÕES NO BANCO -----------
# OMS
who_trat <- who_bruto %>%
dplyr::select(WHO_region,Date_reported,Country,New_cases,Cumulative_cases, New_deaths)%>%
dplyr::group_by(WHO_region, Country) %>% # agrupando (tabela dinamica)
dplyr::summarise(Acumulado=max(Cumulative_cases, na.rm=T))
# Shape
mundo_trat <- mundo %>%
dplyr::rename(Country=admin) # PARA PODER FAZER O JOINVamos dar olhada num papa genérico.
Mundo:
covid_mundo_com_shape_iso2<- covid_mundo_com_shape_iso %>%
mutate(Acumulado_cat=cut(Acumulado,
breaks=c(-1,17000,160000,1000000,
max(covid_mundo_com_shape_iso$Acumulado, na.rm=T)+1),
labels=c("até 17 mil", "17 mil - 160 mil ",
"160 mil - 1 milhão", "acima de 1 milhão")))
paleta<-c('#feebe2','#fbb4b9','#f768a1','#ae017e')
ggplot(covid_mundo_com_shape_iso2, fill="white")+
geom_sf(aes(geometry=geometry, fill=Acumulado_cat ),
color="purple", # cor da fronteira
lwd=0.1) + # finura da fronteira
scale_fill_manual(values=paleta, name="Casos Acumulados \n de covid-19 no Mundo")+
theme_map()+
theme(panel.background = element_rect(fill = "lightblue"),
legend.position = "bottom")+
ggtitle("Um mapa bonito")#oceano
ggsave("mapa_rosa.png")